home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / dd1a.zip / DDGLOBAL.BAS < prev    next >
BASIC Source File  |  1992-04-19  |  1KB  |  30 lines
  1. DefInt A-Z
  2. Type POINTAPI           'used to identify location of drop action
  3.     x As Integer
  4.     y As Integer
  5. End Type
  6. Type Msg                'used by peekmessage function
  7.     hwnd As Integer
  8.     message As Integer
  9.     wparam As Integer
  10.     lParam As Long
  11.     time As Long
  12.     pt As POINTAPI
  13. End Type
  14. 'dragacceptfiles tells windows that hwnd can accept drag/drop messages
  15. Declare Sub DragAcceptFiles Lib "Shell" (ByVal hwnd As Integer, ByVal Accept As Integer)
  16. 'Main() uses peekmessage to determine if hwnd has received a d/d message
  17. Declare Function PeekMessage Lib "User" (lpMsg As Msg, ByVal hwnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer
  18. 'dragqueryfile is used to get number of files dropped (when indexFilenum=-1) and then name of each file in succession (when indexFilenum > -1)
  19. Declare Function DragQueryFile Lib "Shell" (ByVal hdrop As Integer, ByVal indexFilenum As Integer, ByVal lpFileName As String, ByVal buffsize As Integer) As Integer
  20. 'dragfinish must be called after all filenames have been retrieved to cancel memory buffer for d/d operation
  21. Declare Sub DragFinish Lib "Shell" (ByVal hwnd As Integer)
  22.  
  23. Global Const True = -1
  24. Global Const False = 0
  25. Global Handle As Integer
  26. Global NewMessage As Msg
  27. Global NameOfFile As String * 129
  28. Global TotFiles As Integer
  29.  
  30.